home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / rental / depos.prg < prev    next >
Text File  |  1986-05-29  |  13KB  |  389 lines
  1. **    Last revision: April 6, 1986 at 15:54
  2. * deposit entry screen
  3. CLEA
  4. SET INTENSITY ON
  5. SET DELIMITER OFF
  6. STOR '                    ' TO blnks
  7. STOR SUBSTR(blnks,1,2) TO mprop
  8. STOR SUBSTR(blnks,1,4) TO mbank
  9. STOR SUBSTR(blnks,1,8) TO mdate1
  10. STOR .t. TO more
  11. STOR .t. TO first
  12. STOR "When done, leave first amount blank and enter Control 'Q'or 'W'" TO prompt
  13. DO WHIL more
  14.  STOR SUBSTR(blnks,1,4) TO mchk1
  15.  STOR SUBSTR(blnks,1,20) TO mpay1
  16.  STOR 'rent                ' TO mpay1a
  17.  STOR SUBSTR(blnks,1,4) TO macc1
  18.  STOR 0.00 TO mamt1
  19.  STOR SUBSTR(blnks,1,4) TO mchk2
  20.  STOR SUBSTR(blnks,1,20) TO mpay2
  21.  STOR 'rent                ' TO mpay2a
  22.  STOR SUBSTR(blnks,1,4) TO macc2
  23.  STOR 0.00 TO mamt2
  24.  STOR SUBSTR(blnks,1,4) TO mchk3
  25.  STOR SUBSTR(blnks,1,20) TO mpay3
  26.  STOR 'rent                ' TO mpay3a
  27.  STOR SUBSTR(blnks,1,4) TO macc3
  28.  STOR 0.00 TO mamt3
  29.  STOR SUBSTR(blnks,1,4) TO mchk4
  30.  STOR SUBSTR(blnks,1,20) TO mpay4
  31.  STOR 'rent                ' TO mpay4a
  32.  STOR SUBSTR(blnks,1,4) TO macc4
  33.  STOR 0.00 TO mamt4
  34.  STOR SUBSTR(blnks,1,4) TO mchk5
  35.  STOR SUBSTR(blnks,1,20) TO mpay5
  36.  STOR 'rent                ' TO mpay5a
  37.  STOR SUBSTR(blnks,1,4) TO macc5
  38.  STOR 0.00 TO mamt5
  39.  STOR 'N' TO verify
  40.  IF first
  41.   @ 1,12 SAY "Cash Receipts Entry Screen  - Posted"
  42.   @ 1,51 SAY DTOC(date())
  43.   @ 3, 4 SAY "Property:"
  44.   @ 3,37 SAY "Date:"
  45.   @ 4, 0 SAY "Bank Acct No:"
  46.   @ 6, 2 SAY "Account No:"
  47.   @ 6,26 SAY "Tenant No/Payor:"
  48.   @ 7, 1 SAY "Description:"
  49.   @ 7,36 say "Ck No:"
  50.   @ 7,50 SAY "Amount:"
  51.   @ 9, 2 SAY "Account No:"
  52.   @ 9,26 SAY "Tenant No/Payor:"
  53.   @ 10, 1 SAY "Description:"
  54.   @ 10,36 SAY "Ck No:"
  55.   @ 10,50 SAY "Amount:"
  56.   @ 12, 2 SAY "Account No:"
  57.   @ 12,26 SAY "Tenant No/Payor:"
  58.   @ 13, 1 SAY "Description:"
  59.   @ 13,36 SAY "Ck No:"
  60.   @ 13,50 SAY "Amount:"
  61.   @ 15, 2 SAY "Account No:"
  62.   @ 15,26 SAY "Tenant No/Payor:"
  63.   @ 16, 1 SAY "Description:"
  64.   @ 16,36 SAY "Ck No:"
  65.   @ 16,50 SAY "Amount:"
  66.   @ 18, 2 SAY "Account No:"
  67.   @ 18,26 SAY "Tenant No/Payor:"
  68.   @ 19, 1 SAY "Description:"
  69.   @ 19,36 SAY "Ck No:"
  70.   @ 19,50 SAY "Amount:"
  71.  ENDI first
  72.  STOR .f. TO first
  73.  @ 3,14 GET mprop PICTURE '99'
  74.  @ 3,44 GET mdate1 PICTURE '99/99/99'
  75.  @ 4,14 GET mbank PICTURE '9999'
  76.  @ 6,14 GET macc1 PICTURE '9999'
  77.  @ 6,43 GET mpay1 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  78.  @ 7,14 GET mpay1a
  79.  @ 7,43 GET mchk1 PICTURE '9999'
  80.  @ 7,60 GET mamt1
  81.  @ 9,14 GET macc2 PICTURE '9999'
  82.  @ 9,43 GET mpay2 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  83.  @ 10,14 GET mpay2a
  84.  @ 10,43 GET mchk2 PICTURE '9999'
  85.  @ 10,60 GET mamt2
  86.  @ 12,14 GET macc3 PICTURE '9999'
  87.  @ 12,43 GET mpay3 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  88.  @ 13,14 GET mpay3a
  89.  @ 13,43 GET mchk3 PICTURE '9999'
  90.  @ 13,60 GET mamt3
  91.  @ 15,14 GET macc4 PICTURE '9999'
  92.  @ 15,43 GET mpay4 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  93.  @ 16,14 GET mpay4a
  94.  @ 16,43 GET mchk4 PICTURE '9999'
  95.  @ 16,60 GET mamt4
  96.  @ 18,14 GET macc5 PICTURE '9999'
  97.  @ 18,43 GET mpay5 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  98.  @ 19,14 GET mpay5a
  99.  @ 19,43 GET mchk5 PICTURE '9999'
  100.  @ 19,60 GET mamt5
  101.  @ 20,00
  102.  @ 21,00
  103.  @ 22,00
  104.  @ 22,05 SAY prompt
  105.  READ
  106.  CLEA GETS
  107.  @ 22,00
  108.  @ 21,20 SAY "DO YOU WANT TO MAKE ANY CHANGES ? [ ]"
  109.  @ 21,55 GET verify PICTURE '!'
  110.  READ
  111.  CLEA GETS
  112.  IF verify = 'Y'
  113.   @ 3,14 GET mprop PICTURE '99'
  114.   @ 3,44 GET mdate1 PICTURE '99/99/99'
  115.   @ 4,14 GET mbank PICTURE '9999'
  116.   @ 6,14 GET macc1 PICTURE '9999'
  117.   @ 6,43 GET mpay1 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  118.   @ 7,14 GET mpay1a
  119.   @ 7,43 GET mchk1 PICTURE '9999'
  120.   @ 7,60 GET mamt1
  121.   @ 9,14 GET macc2 PICTURE '9999'
  122.   @ 9,43 GET mpay2 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  123.   @ 10,14 GET mpay2a
  124.   @ 10,43 GET mchk2 PICTURE '9999'
  125.   @ 10,60 GET mamt2
  126.   @ 12,14 GET macc3 PICTURE '9999'
  127.   @ 12,43 GET mpay3 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  128.   @ 13,14 GET mpay3a
  129.   @ 13,43 GET mchk3 PICTURE '9999'
  130.   @ 13,60 GET mamt3
  131.   @ 15,14 GET macc4 PICTURE '9999'
  132.   @ 15,43 GET mpay4 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  133.   @ 16,14 GET mpay4a
  134.   @ 16,43 GET mchk4 PICTURE '9999'
  135.   @ 16,60 GET mamt4
  136.   @ 18,14 GET macc5 PICTURE '9999'
  137.   @ 18,43 GET mpay5 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  138.   @ 19,14 GET mpay5a
  139.   @ 19,43 GET mchk5 PICTURE '9999'
  140.   @ 19,60 GET mamt5
  141.   @ 20,00
  142.   @ 21,00
  143.   @ 22,00
  144.   @ 22,05 SAY prompt
  145.   READ
  146.   CLEA GETS
  147.  ENDI verify
  148. * error checking routine
  149. * put in all of the other routines you may require
  150.  STOR .t. TO validate
  151.  DO WHIL VALIDATE
  152.   DO CASE
  153.   CASE mamt1 <> 0 .AND.(SUBSTR(mprop,2) = ' ')
  154.    STOR .t. TO error
  155.   CASE mamt1 <> 0 .AND.(mdate1 = ' ')
  156.    STOR .t. TO error
  157.   CASE mamt1 <> 0 .AND. (SUBSTR(mbank,4) = ' ')
  158.    STOR .t. TO error
  159.   CASE mamt1 <> 0 .AND.(SUBSTR(macc1,4) = ' ')
  160.    STOR .t. TO error
  161.   CASE mamt1 <> 0 .AND.(LEN(TRIM(mpay1)) <4 .AND. SUBSTR(mpay1,1,1) <> 'T')
  162.    STOR .t. TO error
  163.   CASE (SUBSTR(mpay1,1,1) = 'T' .AND.(ASC(SUBSTR(mpay1,2)) <58)) .AND. (LEN(TRIM(mpay1)) <>4)
  164.    STOR .t. TO error
  165.   CASE mamt2 <> 0 .AND.(SUBSTR(macc2,4) = ' ')
  166.    STOR .t. TO error
  167.   CASE mamt2 <> 0 .AND.(LEN(TRIM(mpay2)) <4 .AND. SUBSTR(mpay2,1,1) <> 'T')
  168.    STOR .t. TO error
  169.   CASE (SUBSTR(mpay2,1,1) = 'T' .AND.(ASC(SUBSTR(mpay2,2)) <58)) .AND. (LEN(TRIM(mpay2)) <>4)
  170.    STOR .t. TO error
  171.   CASE mamt3 <> 0 .AND.(SUBSTR(macc3,4) = ' ')
  172.    STOR .t. TO error
  173.   CASE mamt3 <> 0 .AND.(LEN(TRIM(mpay3)) <4 .AND. SUBSTR(mpay3,1,1) <> 'T')
  174.    STOR .t. TO error
  175.   CASE (SUBSTR(mpay3,1,1) = 'T' .AND.(ASC(SUBSTR(mpay3,2)) <58)) .AND. (LEN(TRIM(mpay3)) <>4)
  176.    STOR .t. TO error
  177.   CASE mamt4 <> 0 .AND.(SUBSTR(macc4,4) = ' ')
  178.    STOR .t. TO error
  179.   CASE mamt4 <> 0 .AND.(LEN(TRIM(mpay4)) <4 .AND. SUBSTR(mpay4,1,1) <> 'T')
  180.    STOR .t. TO error
  181.   CASE (SUBSTR(mpay4,1,1) = 'T' .AND.(ASC(SUBSTR(mpay4,2)) <58)) .AND. (LEN(TRIM(mpay4)) <>4)
  182.    STOR .t. TO error
  183.   CASE mamt5 <> 0 .AND.(SUBSTR(macc5,4) = ' ')
  184.    STOR .t. TO error
  185.   CASE mamt5 <> 0 .AND.(LEN(TRIM(mpay5)) <4 .AND. SUBSTR(mpay5,1,1) <> 'T')
  186.    STOR .t. TO error
  187.   CASE (SUBSTR(mpay5,1,1) = 'T' .AND.(ASC(SUBSTR(mpay5,2)) <58)) .AND. (LEN(TRIM(mpay5)) <>4)
  188.    STOR .t. TO error
  189.   OTHE
  190.    STOR .f. TO validate
  191.    STOR .f. TO error
  192.   ENDC
  193.   IF error
  194.    @ 20,00
  195.    @ 21,00
  196.    @ 22,00
  197.    @ 21,14 SAY "PLEASE CORRECT THE INDICATED DATA"
  198. * keep looping till all fields are fixed
  199.    STOR .t. TO an_error
  200.    DO WHIL an_error
  201. * fix bad ones one at a time
  202.     DO CASE
  203.     CASE mamt1 <> 0 .AND.(SUBSTR(mprop,2) = ' ')
  204.      @ 22,00
  205.      @ 22,10 SAY "You must have a two number property account or '00'"
  206.      @ 3,14 GET mprop PICTURE '99'
  207.      READ
  208.     CASE mamt1 <> 0 .AND.(mdate1 = ' ')
  209.      @ 22,00
  210.      @ 22,10 SAY "You must have a transaction date"
  211.      @ 3,44 GET mdate1 PICTURE '99/99/99'
  212.      READ
  213.     CASE mamt1 <> 0 .AND.(SUBSTR(mbank,4) = ' ')
  214.      @ 22,00
  215.      @ 22,10 SAY "You must have a bank account"
  216.      @ 4,14 GET mbank PICTURE '9999'
  217.      READ
  218.     CASE mamt1 <> 0 .AND.(LEN(TRIM(mpay1)) <4 .AND. SUBSTR(mpay1,1,1) <> 'T')
  219.      @ 22,00
  220.      @ 22,10 SAY "Tenant account is 'T' plus a three number code"
  221.      @ 6,43 GET mpay1 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  222.      READ
  223.     CASE (SUBSTR(mpay1,1,1) = 'T' .AND.(ASC(SUBSTR(mpay1,2)) <58)) .AND. (LEN(TRIM(mpay1)) <>4)
  224.      @ 22,00
  225.      @ 22,10 SAY "Tenant account is 'T' plus a three number code"
  226.      @ 6,43 GET mpay1 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  227.      READ
  228.     CASE mamt1 <> 0 .AND.  (SUBSTR(macc1,4) = ' ')
  229.      @ 22,00
  230.      @ 22,10 SAY "Account Number must be four numbers"
  231.      @ 6,14 GET macc1 PICTURE '9999'
  232.      READ
  233.     CASE mamt2 <> 0 .AND. (LEN(TRIM(mpay2)) <4 .AND. SUBSTR(mpay2,1,1) <> 'T')
  234.      @ 22,00
  235.      @ 22,10 SAY "Tenant account is 'T' plus a three number code"
  236.      @ 9,43 GET mpay2 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  237.      READ
  238.     CASE (SUBSTR(mpay2,1,1) = 'T' .AND.(ASC(SUBSTR(mpay2,2)) <58)) .AND. (LEN(TRIM(mpay2)) <>4)
  239.      @ 22,00
  240.      @ 22,10 SAY "Tenant account is 'T' plus a three number code"
  241.      @ 9,43 GET mpay2 PICTURE '!XXXXXXXXXXXXXXXXXXX'
  242.      READ
  243.     CASE mamt2 <> 0  .AND. (SUBSTR(macc2,4) = ' ')
  244.      @ 22,00
  245.      @ 22,10 SAY "Account Number must be four numbers "
  246.      @ 9,14 GET macc2 PICTURE '9999'
  247.      READ
  248.     CASE mamt3 <> 0 .AND.(LEN(TRIM(mpay3)) <4 .AND. SUBSTR(mpay3,1,1) <> 'T')
  249.